import ShowCount
import System

main = do
  args <- getArgs
  interact (showCount (counter args))
      where counter [] = countLines
            counter ["-l"] = countLines
            counter ["-w"] = countWords
            counter ["-c"] = countChars
